Ì i 2
adm.pat.ansi.elig.data (ansi.elig.data)
[elig.account,elig.ins,elig.ins.seq]
*AA.EDI[aa,ggm,aaEIS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.account 30 URN L ADM.PAT aa
elig.ins 10 FREE L MIS.INS.DICT ggm
elig.ins.seq 5 FREE L aaEIS
elig.inq.override.dob 8 BDATE L *AA.EDI[aa,ggm,aaEIS]I|2
elig.inq.override.from.dt 8 DATE L *AA.EDI[aa,ggm,aaEIS]I|6
elig.inq.override.name 50 FREE L *AA.EDI[aa,ggm,aaEIS]I|0
elig.inq.override.phone 14 PHONE L *AA.EDI[aa,ggm,aaEIS]I|3
elig.inq.override.ssn 12 FREE L *AA.EDI[aa,ggm,aaEIS]I|1
elig.inq.override.thru.dt 8 DATE L *AA.EDI[aa,ggm,aaEIS]I|7
elig.inq.override.used 1 YN L *AA.EDI[aa,ggm,aaEIS]I|4
elig.resp.detail.exists 10 FREE L VAL=(>@ansi.elig.resp.detail[,,,""])
elig.txn.comment 50 FREE L *AA.EDI[aa,ggm,aaEIS]|6
elig.txn.edi.pgm 15 FREE L MIS.EDI.PGM *AA.EDI[aa,ggm,aaEIS]|8
elig.txn.inq.time 10 INT R *AA.EDI[aa,ggm,aaEIS]|1
elig.txn.ins.status 10 FREE L *AA.EDI[aa,ggm,aaEIS]|3
elig.txn.is.tpl.data 1 YN L *AA.EDI[aa,ggm,aaEIS]|10
elig.txn.mult.records 1 FREE L *AA.EDI[aa,ggm,aaEIS]|4
elig.txn.status 10 FREE L *AA.EDI[aa,ggm,aaEIS]|2
elig.txn.time 10 INT R *AA.EDI[aa,ggm,aaEIS]|7
elig.txn.trace.num 20 FREE L *AA.EDI[aa,ggm,aaEIS]|0
Ì € i 2
adm.pat.ansi.elig.tpl.links (ansi.elig.tpl.links)
[elig.account,elig.ins,elig.ins.seq, elig.tpl.ins]
*AA.EDI[aa,ggm,aaEIS]TPL[ggmL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.tpl.ins 10 FREE L MIS.INS.DICT ggmL
elig.tpl.pointer 6 FREE L *AA.EDI[aa,ggm,aaEIS]TPL[ggmL]|0
Ì i 2
clinical.cus.defined.queries (ccdqr)
[ccdqr.patient,ccdqr.query]
*AA.CCDQR[aa,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.patient 30 URN L ADM.PAT aa
ccdqr.query 10 FREE L MIS.QUERY ggv
ccdqr.abn.result 2 CHOICE L *AA.CCDQR[aa,ggv]AB
ccdqr.ctr 5 PINT R *AA.CCDQR[aa,ggv]|3
ccdqr.date 8 DATE L *AA.CCDQR[aa,ggv]|1
ccdqr.mult.ctr 5 PINT R *AA.CCDQR[aa,ggv]M|2
ccdqr.mult.date 8 DATE L *AA.CCDQR[aa,ggv]M|0
ccdqr.mult.qry.map.date 8 DATE L *AA.CCDQR[aa,ggv]INIT
ccdqr.mult.time 4 HHMM L *AA.CCDQR[aa,ggv]M|1
ccdqr.response 30 QRY.RESP L *AA.CCDQR[aa,ggv]|0
ccdqr.time 4 HHMM L *AA.CCDQR[aa,ggv]|2
Ì € i 2
clinical.cus.def.mult.qry.resp (ccdqr.mult.resp)
[ccdqr.patient,ccdqr.query, ccdqr.mult.seq.no]
*AA.CCDQR[aa,ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.mult.seq.no 3 PINT R ggvN
ccdqr.mult.abn.result 2 CHOICE L *AA.CCDQR[aa,ggv]M[ggvN]AB
ccdqr.mult.response 75 QRY.RESP L *AA.CCDQR[aa,ggv]M[ggvN]|0
Ì i 2
adm.pat.doctor.list (doctor.list)
[urn.2,any.doctor]
/DRS[aa,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn.2 30 URN L ADM.PAT aa
any.doctor 10 FREE L MIS.DOC.DICT ggg
Ì i 2
adm.pat.edit.log (edit.log)
[ed.urn,ed.mnemonic,ed.date,ed.time,ed.seq.no]
*AAAG[aa,ag,aaDT,aaTM,aaEX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.urn 30 URN L ADM.PAT aa
ed.mnemonic 20 FREE L ADM.FIELDS ag
ed.date 8 DATE L aaDT
ed.time 4 HHMM L aaTM
ed.seq.no 2 PINT R aaEX
ed.new.value 40 FREE L *AAAG[aa,ag,aaDT,aaTM,aaEX]|1
ed.old.value 40 FREE L *AAAG[aa,ag,aaDT,aaTM,aaEX]|0
ed.user 10 FREE L MIS.USER *AAAG[aa,ag,aaDT,aaTM,aaEX]|2
Ì i 2
adm.pat.ins.ver.status.log (ins.ver.status.log)
[ins.vlog.user,ins.vlog.date,ins.vlog.ins,ins.vlog.account,ins.vlog.seq.no]
*AAISL[gu,aaslD,ggm,aa,aaISL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.vlog.user 10 FREE L MIS.USER gu
ins.vlog.date 8 DATE L aaslD
ins.vlog.ins 10 FREE L MIS.INS.DICT ggm
ins.vlog.account 30 URN L ADM.PAT aa
ins.vlog.seq.no 2 PINT R aaISL
ins.vlog.new.auth.pstatus 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|3
ins.vlog.new.auth.status 9 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|5
ins.vlog.new.elig.status 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|1
ins.vlog.old.auth.pstatus 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|2
ins.vlog.old.auth.status 9 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|4
ins.vlog.old.elig.status 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|0
ins.vlog.rpt.from.date 9 DATE L VAL=IF{b.ins.vlog.date'=@Z.del;"BEGINNING"}
ins.vlog.rpt.from.ins 10 FREE L VAL=IF{b.ins.vlog.ins'=@Z.del;"BEGINNING"}
ins.vlog.rpt.to.date 8 DATE L VAL=IF{e.ins.vlog.date'=@Z.del;"END"}
ins.vlog.rpt.to.ins 10 FREE L VAL=IF{e.ins.vlog.ins'=@Z.del;"END"}
Ì i 2
adm.pat.invalid.acct.log (invalid.acct.log)
[inv.date,inv.time,inv.urn]
:AAINV[aaDT,aaTM,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.date 8 DATE L aaDT
inv.time 4 HHMM L aaTM
inv.urn 30 URN L aa
inv.account 12 FREE L :AAINV[aaDT,aaTM,aa]|1
inv.facility 10 FREE L :AAINV[aaDT,aaTM,aa]|5
inv.name 30 FREE L :AAINV[aaDT,aaTM,aa]|2
inv.status 8 FREE L :AAINV[aaDT,aaTM,aa]|3
inv.txn 10 FREE L :AAINV[aaDT,aaTM,aa]|0
inv.unit.number 10 FREE L :AAINV[aaDT,aaTM,aa]|4
inv.user 10 FREE L :AAINV[aaDT,aaTM,aa]|6
Ì i 2
irf visit register (irf.visit.register)
[irf.fac,irf.urn,irf.pt.loa.date,irf.pt.loa.time]
:AAIRFV[gqb,aa,aaLD,aaLT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
irf.fac 10 FREE L MIS.FACILITY gqb
irf.urn 30 URN L ADM.PAT aa
irf.pt.loa.date 8 DATE L aaLD
irf.pt.loa.time 4 HHMM L aaLT
irf.pt.loa.status 1 CHOICE L :AAIRFV[gqb,aa,aaLD,aaLT]|0
Ì i 2
adm.pat.locals (locals)
*AA
Field Name Len Dat Typ J DPM Offset/Local/VAL
acct.num.out 12 FREE L VAL=IF{@ADM.PAT.acct.number[urn];MRI.PAT.visit.subscri
VAL=pt#"2|"}
accts.prv.database 15 FREE L VAL=+@MIS.FACILITY.databases[@facility[IF{urn;@t.urn}]
VAL=,"PRV"]'>("PRV."_D(127))
age.out 7 FREE L VAL=IF{IF{@ADM.PAT.birthdate[urn];@t.MRI.PAT.computed.
VAL=birthdate[MRI.PAT.urn]}^DT IF{@t.MRI.PAT.exp.date^
VAL=DD %Z.age(DT,DD);%Z.age(DT)}}
allergy.lab 15 FREE L
appl.urn 30 URN L
birthdate.out 8 BDATE L VAL=IF{@ADM.PAT.birthdate[urn];@t.MRI.PAT.computed.bir
VAL=thdate[MRI.PAT.urn]}
choice 1 PINT R
copy 1 PINT R
delete.date 8 DATE L
device 25 FREE L
dis.date.out 8 FREE L VAL=IF{IF{@t.ADM.PAT.status%3="RCR" @t.ADM.PAT.recur.d
VAL=ischarge.date;@ADM.PAT.discharge.date[urn];@t.MRI.
VAL=PAT.visit.discharge.date[MRI.PAT.urn,MRI.PAT.visit
VAL=.subscript]}^DT %Z.date.out(DT)}
dis.disp.out 10 FREE L VAL=IF{@ADM.PAT.discharge.disposition[urn];@t.MRI.PAT.
VAL=discharge.disposition[MRI.PAT.urn]}
ed.or.del 1 FREE L
epi.num.out 15 FREE L VAL=epi.num.out
exit 1 PINT R
free 30 FREE L
free2 30 FREE L
free3 30 FREE L
hub.id 20 FREE L
ins.v.status 8 FREE L
ins.v.status.date 8 DATE L
int 2 PINT R
location.out 10 FREE L VAL=IF{@ADM.PAT.location[urn];@t.MRI.PAT.visit.locatio
VAL=n[MRI.PAT.urn,MRI.PAT.visit.subscript]}
midnight.run.date 8 DATE L
moved.to.acct.out 12 FREE L VAL=@ADM.PAT.acct.number[@ADM.PAT.moved.to[urn]]
mri.age.tested 1 FREE L
mri.bdat.tested 1 FREE L
mri.conflicts 1 YN L
mri.conflicts.tested 14 FREE L
mri.demo.recall 8 DATE L VAL=mri.demo.recall
mri.last.discharge 8 DATE L VAL=mri.last.discharge
mri.maiden.tested 1 FREE L
mri.moth.first.tested 1 FREE L
mri.name.tested 1 FREE L
mri.oth.pat.tested 1 FREE L
mri.other.name.tested 1 FREE L
mri.sex.tested 1 FREE L
mri.srch 1 CHOICE L
name.out 30 FREE L VAL=IF{@ADM.PAT.name[urn];@t.MRI.PAT.name[MRI.PAT.urn]
VAL=}
new.pat 1 PINT R
occur.p.out 8 FREE L VAL=IF{@ADM.PAT.occur.date[urn,1]^DT %Z.date.out(DT)}
occur.s.out 8 FREE L VAL=IF{@ADM.PAT.occur.date[urn,2]^DT %Z.date.out(DT)}
print.pt.condition 20 FREE L VAL=IF{"PATIENT"=@ADM.PAT.disclosures "";@ADM.COND.des
VAL=cription[@ADM.PAT.pt.condition]}
rcr.last.date 8 DATE L VAL=-@ADM.PAT.recur.dates[@ADM.PAT.urn,""]
rcr.last.time 4 HHMM L VAL=-@ADM.PAT.recur.dates[@ADM.PAT.urn,@ADM.PAT.rcr.la
VAL=st.date,""]
resp.dr.name.out 30 FREE L VAL=IF{@ADM.PAT.attend.doctor[urn]^NM @MIS.DOC.DICT.na
VAL=me[NM];@ADM.PAT.er.doctor[urn]^NM @MIS.DOC.DICT.na
VAL=me[NM];@t.MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT
VAL=.visit.subscript]^NM @MIS.DOC.DICT.name[NM]}
resp.dr.out 10 FREE L VAL=IF{@ADM.PAT.attend.doctor[urn];@ADM.PAT.er.doctor[
VAL=urn];@t.MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.v
VAL=isit.subscript]}
room.bed.urn 30 URN L ADM.PAT VAL=@ADM.PAT.room.bed.index[@.facility,ADM.PAT.room,AD
VAL=M.PAT.bed]
room.not.full 1 YN L VAL=%ADM.PAT.rm.not.full(MIS.ROOM.DICT.mnemonic)
room.not.full.or.all 1 YN L VAL=IF{L("Nn",c.yes.no)<2 "Y";@ADM.PAT.room.not.ful
VAL=l}
scrn.title 30 FREE L
select 2 PINT R
select2 2 INT R
sex.out 1 FREE L VAL=IF{@ADM.PAT.sex[urn];@t.MRI.PAT.sex[MRI.PAT.urn]}
stats.section 1 PINT R
status.out 8 FREE L VAL=IF{@ADM.PAT.status[urn];MRI.PAT.visit.subscript#"1
VAL=|"}
text.editor 0 FREE L
text.editor.view 0 FREE L
unit.num.out 10 FREE L VAL=IF{@ADM.PAT.unit.number[urn];/EA[MRI.PAT.urn,"UN",
VAL=@.mri.pfx]|0}
visit.date.out 8 FREE L VAL=IF{@ADM.PAT.admit.date[urn]^DT %Z.date.out(DT);@AD
VAL=M.PAT.service.date[urn]^DT %Z.date.out(DT);@ADM.PA
VAL=T.status#0A="PRE" "";(99999999-(MRI.PAT.visit.subs
VAL=cript#"0|"$8)<99999999)^DT %Z.date.out(DT)}
visit.time.out 4 FREE L VAL=IF{@ADM.PAT.admit.time[urn];@ADM.PAT.service.time[
VAL=urn];(9999-(MRI.PAT.visit.subscript#"0|"%8)<999
VAL=9)}
yes.no 1 YN L
yn 1 YN L
Ì i 2
adm.pat.location.list (location.list)
[urn.3,any.location]
/LOCS[aa,ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn.3 30 URN L ADM.PAT aa
any.location 10 FREE L MIS.LOCN.DICT ggn
Ì i 2
adm.patient.file (main)
[urn]
*AA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L aa
aaa.vip 1 YN L VAL=@vip
accident.24.hours 1 YN L *AA[aa]CNA|9
accident.comment 50 FREE L *AA[aa]CNF|1
accident.description 30 FREE L *AA[aa]CNA|8
accident.nature.of.injury 30 FREE L *AA[aa]CNA|7
accident.original.treat 50 FREE L *AA[aa]CNF|0
accident.place 20 FREE L *AA[aa]CNA|5
accident.police.involved 20 FREE L *AA[aa]CNA|6
accommodation 10 FREE L MIS.ACCOM.DICT *AA[aa]B|5
acct 30 FREE L
acct.num.obs 12 FREE L VAL=IF{c.date'=@admit.date!(time'=@admit.time) ""^old.
VAL=can.number.seq.no,DO{@Next(old.can.number.seq.no)&
VAL=("ADM INo"'=@old.can.acct.status)},@old.can.acct.n
VAL=umber}
acct.num.obs.or.in 12 FREE L VAL=IF{"CANADA"'=@MIS.PARAM.country @acct.number;@acct
VAL=.num.obs;@acct.number}
acct.number 12 FREE L *AA[aa]|0
adm.or.mri.urn 6 FREE L
adm.res.date.out 8 DATE L VAL=IF{@admit.date;@reservation.date}
adm.res.time.out 4 HHMM L VAL=IF{@admit.time;@reservation.time}
adm.svc.age 7 FREE L VAL=(%Z.age(@ADM.PAT.computed.birthdate,IF{@admit.date
VAL=;@service.date}))
adm.svc.date.out 8 DATE L VAL=IF{@admit.date;@service.date}
adm.svc.res.date.out 8 DATE L VAL=IF{@admit.date;@service.date;@reservation.date;@tr
VAL=iage.date;@MRI.PAT.visit.date}
adm.svc.res.time.out 4 HHMM L VAL=IF{@admit.time;@service.time;@reservation.time;@tr
VAL=iage.time}
adm.svc.time.out 4 HHMM L VAL=IF{@admit.time;@service.time}
admit.clerk 10 FREE L MIS.USER *AA[aa]O3|0
admit.comment 50 FREE L *AA[aa]CO|0
admit.date 8 DATE L *AA[aa]|13
admit.diagnosis 55 FREE L *AA[aa]O3|11
admit.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|0
admit.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.admit.doctor]
admit.priority 10 FREE L MIS.ADM.PRIORT *AA[aa]B|2
admit.source 10 FREE L MIS.ADM.SOURCE *AA[aa]B|8
admit.time 4 HHMM L *AA[aa]|14
admit.time.out 4 HHMM L VAL=IF{@admit.time;@t.MRI.PAT.visit.time}
affiliation 30 FREE L *AA[aa]A|1
age 7 AGE L *AA[aa]|8
age.group 2 FREE L *AA[aa]CND|5
alert.1 15 FREE L *AA[aa]CNR[1]
alert.2 15 FREE L *AA[aa]CNR[2]
allergy.1 15 FREE L *AA[aa]ALG[1]
allergy.2 15 FREE L *AA[aa]ALG[2]
allergy.3 15 FREE L *AA[aa]ALG[3]
allergy.4 15 FREE L *AA[aa]ALG[4]
alt.address 1 YN L *AA[aa]O3|15
alt.desc.group 15 FREE L *AA[aa]DX|1
ambulance 1 YN L *AA[aa]CNA|3
ambulance.call.number 11 INT R *AA[aa]T|8
anticipated.dis.date 8 DATE L VAL=%Z.date.add(@admit.date,@expected.length.of.stay)
arrived.from 10 FREE L MIS.ARRIV.DICT *AA[aa]O3|6
attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|1
attend.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[IF{@ADM.PAT.attend.doctor;@t.MR
VAL=I.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.visit.subsc
VAL=ript]}]
attend.dr.mne.out 10 FREE L VAL=IF{@ADM.PAT.attend.doctor;@t.MRI.PAT.visit.doctor[
VAL=MRI.PAT.urn,MRI.PAT.visit.subscript]}
attend.or.er.doc.name.out 30 FREE L VAL=@MIS.DOC.DICT.name[IF{@ADM.PAT.attend.doctor;@ADM.
VAL=PAT.er.doctor}]
bed 3 FREE L *AA[aa]|11
bed.phone 10 FREE L VAL=@MIS.ROOM.DICT.bed.phone[@room,@bed]
birthdate 8 BDATE L *AA[aa]|5
birthdate.display.only 8 BDATE L *AA[aa]|5
blood.pressure 25 FREE L *AA[aa]T1|2
cd.screen.old 15 FREE L MIS.SCREEN *AA[aa]CD|0
ck.admit.priv 1 YN L VAL=IF{@MIS.PARAM.multi.fac="Y" IF{@MIS.DOC.DICT.facil
VAL=ity.admit.priv[@.new,@.facility];@MIS.DOC.DICT.dft
VAL=.admit.priv[@.new]};@MIS.DOC.DICT.dft.admit.priv[@
VAL=.new]}
ck.confidential 1 YN L VAL=IF{"Y"'=@ADM.PAT.confidential;@MIS.USER.confidenti
VAL=al.pts[@.user]="Y";"N"}
ck.location.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.LOCN.DICT.f
VAL=acilities[MIS.LOCN.DICT.mnemonic,""]_0=0 "Y";@MIS.
VAL=LOCN.DICT.facilities[MIS.LOCN.DICT.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.patient.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";@ADM.PAT.facility
VAL=!.=@.facility "Y";"N"}
ck.room.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.ROOM.DICT.f
VAL=acilities[MIS.ROOM.DICT.mnemonic,""]_0=0 "Y";@MIS.
VAL=ROOM.DICT.facilities[MIS.ROOM.DICT.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.service.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.SVC.DICT.fa
VAL=cilities[MIS.SVC.DICT.mnemonic,""]_0=0 "Y";@MIS.SV
VAL=C.DICT.facilities[MIS.SVC.DICT.mnemonic,@.facility
VAL=] "Y";"N"}
ck.short.form.reg 1 YN L VAL=IF{@short.form.reg;"N"}
cli.depart.comment 50 FREE L *AA[aa]CLI|4
cli.depart.date 8 DATE L *AA[aa]CLI|0
cli.depart.diagnosis 50 FREE L *AA[aa]CLI|3
cli.depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]CLI|2
cli.depart.time 4 HHMM L *AA[aa]CLI|1
computed.birthdate 8 BDATE L *AA[aa]|6
cond.comment 60 FREE L *AA[aa]CN|4
cond.date 8 DATE L *AA[aa]CN|2
cond.time 4 HHMM L *AA[aa]CN|3
confidential 1 YN L *AA[aa]O4|0
confidential.comment 50 FREE L *AA[aa]O4|1
confidential.message 25 FREE L VAL=@ADM.PARAM.confidential.message
current.age 7 FREE L VAL=(%Z.age(@ADM.PAT.computed.birthdate))
date 8 DATE L
decision.to.admit.date 8 DATE L *AA[aa]T|9
decision.to.admit.time 4 TIME L *AA[aa]T|7
deleted 1 YN L *AA[aa]|19
depart.comment 50 FREE L *AA[aa]DEP|4
depart.date 8 DATE L *AA[aa]DEP|0
depart.diagnosis 50 FREE L *AA[aa]DEP|3
depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]DEP|2
depart.time 4 HHMM L *AA[aa]DEP|1
destination 12 FREE L MIS.DEST.DICT *AA[aa]PD|1
dis.ready.comment 30 FREE L *AA[aa]PD|4
discharge.comment 55 FREE L *AA[aa]CO|2
discharge.date 8 DATE L *AA[aa]|17
discharge.diagnosis 55 FREE L *AA[aa]O3|12
discharge.disposition 10 FREE L MIS.DIS.DICT *AA[aa]B|14
discharge.time 4 HHMM L *AA[aa]|18
disclosures 8 CHOICE L *AA[aa]A|11
do.mpi.search 1 YN L *AA[aa]O4|9
doctor 10 FREE L MIS.DOC.DICT
doctor.group 10 FREE L MIS.DOC.GRP
doctor.out 10 FREE L MIS.DOC.DICT VAL=IF{@admit.doctor;@attend.doctor;@er.doctor}
edit.emp.info 2 FREE L VAL=EDIT
edit.nok.info 2 FREE L VAL=EDIT
edit.or.switch.guar.num 1 CHOICE L *AA[aa]A|8
edit.pat.info 2 FREE L VAL=EDIT
edit.ptn.info 2 FREE L VAL=EDIT
edm.flag 1 FREE L VAL=/HE.EDM
effective.date 8 DATE L
emp.addr.phone.out 125 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6_" "_AD|7'=",, ")
emp.address.out 106 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6'=",, ")
emp.city 30 FREE L *AA[aa]E|4
emp.city.state.zip.o 44 FREE L VAL=(@pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@employer];@employer}
emp.phone 18 PHONE L *AA[aa]E|7
emp.postal.code 10 ZIP.POST L *AA[aa]E|6
emp.province 2 FREE L *AA[aa]E|5
emp.state 2 FREE L *AA[aa]E|5
emp.street 30 FREE L *AA[aa]E|2
emp.street2 30 FREE L *AA[aa]E|3
emp.streets.out 61 FREE L VAL=(@pt.emp^AD#2P_" "_AD|3'=" ")
emp.zip 10 ZIP.POST L *AA[aa]E|6
employer 10 FREE L MIS.EMPLR.DICT *AA[aa]E|0
employer.name 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@employer];@employer}
entry.code 10 FREE L MIS.CAN.ENTRY *AA[aa]CNA|1
er.depart.comment 50 FREE L *AA[aa]ER|4
er.depart.date 8 DATE L *AA[aa]ER|0
er.depart.diagnosis 50 FREE L *AA[aa]ER|3
er.depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]ER|2
er.depart.time 4 HHMM L *AA[aa]ER|1
er.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|4
er.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.er.doctor]
existing.illness 50 FREE L *AA[aa]T|2
exp.discharge.date 8 DATE L *AA[aa]PD|0
expected.length.of.stay 3 PINT R *AA[aa]O3|5
facility 10 FREE L MIS.FACILITY *AA[aa]B|7
facility.val 10 FREE L MIS.FACILITY VAL=IF{"Y"'=@MIS.PARAM.multi.fac .;@ADM.PAT.main @ADM.
VAL=PAT.facility!.;""^PFX^P,0^I,DO{@MRI.PAT.visit.acct
VAL=.number#I'?1N^P PFX_P^PFX,I+1^I},PFX @MIS.PARAM.ac
VAL=ct.num.px.facility[PFX]}
family.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|3
family.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.family.doctor]
family.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@family.doctor];@family.doct
VAL=or}
financial.class 10 FREE L MIS.FIN.CLASS *AA[aa]A|3
first.name 30 FREE L
grouper.version 10 FREE L *AA[aa]DX|0
guar.addr.phone.out 115 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6_" "_AD|7'=",, ")
guar.address.out 96 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6'=",, ")
guar.city 20 FREE L *AA[aa]G|4
guar.city.state.zip.o 34 FREE L VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.addr.phone.out 125 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6_" "_AD|7'=",, ")
guar.emp.address.out 106 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6'=",, ")
guar.emp.city 30 FREE L *AA[aa]GE|4
guar.emp.city.state.zip.o 44 FREE L VAL=(@guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@guar.employer];@guar.empl
VAL=oyer}
guar.emp.phone 18 PHONE L *AA[aa]GE|7
guar.emp.postal.code 10 ZIP.POST L *AA[aa]GE|6
guar.emp.province 2 FREE L *AA[aa]GE|5
guar.emp.state 2 FREE L *AA[aa]GE|5
guar.emp.street 30 FREE L *AA[aa]GE|2
guar.emp.street2 30 FREE L *AA[aa]GE|3
guar.emp.streets.out 61 FREE L VAL=(@guar.emp.street_" "_@guar.emp.street2'=" ")
guar.emp.zip 10 ZIP.POST L *AA[aa]GE|6
guar.employer 10 FREE L MIS.EMPLR.DICT *AA[aa]GE|0
guar.home.phone 18 PHONE L *AA[aa]G|7
guar.name 30 FREE L *AA[aa]G|0
guar.name.display.only 30 FREE L *AA[aa]G|0
guar.name.pre.er 30 FREE L *AA[aa]G|0
guar.occupation 20 FREE L *AA[aa]GE|1
guar.postal.code 10 ZIP.POST L *AA[aa]G|6
guar.province 2 FREE L *AA[aa]G|5
guar.pt.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]G|1
guar.soc.sec.number 12 FREE L *AA[aa]G|8
guar.state 2 FREE L *AA[aa]G|5
guar.street 30 FREE L *AA[aa]G|2
guar.street.display.only 30 FREE L *AA[aa]G|2
guar.street2 30 FREE L *AA[aa]G|3
guar.streets.out 61 FREE L VAL=(@guar.street_" "_@guar.street2'=" ")
guar.zip 10 ZIP.POST L *AA[aa]G|6
hc.subscriber.inits 3 FREE L *AA[aa]CND|2
hc.subscriber.relation 10 FREE L MIS.RELAT.DICT *AA[aa]CND|3
health.care.number 14 FREE L *AA[aa]CND|1
hospital.number 4 INT R *AA[aa]CNA|4
id 30 URN L ADM.PAT VAL=(@acct.number_" "_@name:0S)
inpatient.location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
ins.addr.phone.out 130 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ad
VAL=dress2^ADDR2,@MIS.INS.DICT.main^AD#2P_IF{ADDR2 " "
VAL=_ADDR2}_","_AD|3_","_AD|4_" "_AD|5_" "_AD|6;@insur
VAL=ances^AD#0P_IF{AD|6 " "_AD|6}_","_AD|1_","_AD|2_"
VAL="_AD|3_" "_AD|4}'=",, ")
ins.address.out 65 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ad
VAL=dress2^ADDR2,@MIS.INS.DICT.main^AD#2P_IF{ADDR2 " "
VAL=_ADDR2}_","_AD|3_","_AD|4_" "_AD|5;@insurances^AD#
VAL=0P_IF{AD|6 " "_AD|6}_","_AD|1_","_AD|2_" "_AD|3}'=
VAL=",, ")
ins.city.out 20 FREE L VAL=IF{@insurance.city;@MIS.INS.DICT.city}
ins.mnemonic.1 10 FREE L VAL=@insurance.mnemonic[1]^insurance
ins.mnemonic.2 10 FREE L VAL=@insurance.mnemonic[2]^insurance
ins.mnemonic.3 10 FREE L VAL=@insurance.mnemonic[3]^insurance
ins.mnemonic.4 10 FREE L VAL=@insurance.mnemonic[4]^insurance
ins.name.out 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" IF{@insurance.othe
VAL=r.name;@MIS.INS.DICT.name};@MIS.INS.DICT.name}
ins.name.out.1 30 FREE L VAL=IF{@ins.mnemonic.1 @ins.name.out}
ins.name.out.2 30 FREE L VAL=IF{@ins.mnemonic.2 @ins.name.out}
ins.name.out.3 30 FREE L VAL=IF{@ins.mnemonic.3 @ins.name.out}
ins.name.out.4 30 FREE L VAL=IF{@ins.mnemonic.4 @ins.name.out}
ins.number.1 1 INT R VAL=1
ins.number.2 1 INT R VAL=2
ins.number.3 1 INT R VAL=3
ins.number.4 1 INT R VAL=4
ins.phone.out 18 PHONE L VAL=IF{@insurance.phone;@MIS.INS.DICT.phone}
ins.pol.no.out.1 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.1]
ins.pol.no.out.2 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.2]
ins.pol.no.out.3 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.3]
ins.pol.no.out.4 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.4]
ins.state.out 2 FREE L VAL=IF{@insurance.state;@MIS.INS.DICT.state}
ins.street.out 30 FREE L VAL=IF{@insurance.street;@MIS.INS.DICT.address}
ins.street2.out 30 FREE L VAL=IF{@insurance.street2;@MIS.INS.DICT.address2}
ins.zip.out 10 FREE L VAL=IF{@insurance.zip;@MIS.INS.DICT.zip}
institution.from 10 FREE L MIS.CAN.INST *AA[aa]CNA|2
is.admitting.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.admit.doctor "Y"}
is.attend.or.er.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.attend.doctor "Y";ADM.P
VAL=AT.doctor=@ADM.PAT.er.doctor "Y"}
is.attending.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.attend.doctor "Y"}
is.er.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.er.doctor "Y"}
is.family.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.family.doctor "Y"}
is.other.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.other.doctor "Y"}
lab.suppress.pci 1 YN L *AA[aa]LD|0
language 10 FREE L MIS.CAN.LANG *AA[aa]CND|0
last.discharge.date 8 DATE L VAL=IF{%ADM.PAT.mri.last.dis(@ADM.PAT.mri.urn,ADM.PAT.
VAL=urn),/mri.last.discharge}
last.edit.date 8 DATE L VAL=%Z.date.in.magic(@ADM.PAT.last.edit.time)
last.edit.time 9 FREE L *AA[aa]B|0
last.edit.time.of.day 4 HHMM L VAL=%Z.time.out(@ADM.PAT.last.edit.time)
last.edit.user 10 FREE L MIS.USER *AA[aa]B|1
last.hosp.from.date 8 DATE L *AA[aa]B|12
last.hosp.thru.date 8 DATE L *AA[aa]B|13
last.hospital 30 FREE L *AA[aa]B|11
last.hospital.and.dates 48 FREE L VAL=(@last.hospital_" "_%Z.date.out(@last.hosp.from.da
VAL=te)_"-"_%Z.date.out(@last.hosp.thru.date)'=" -")
last.inpat.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"I")#0P}
last.name 30 FREE L
last.outpat.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"O")#0P}
last.outpat.visit.type 3 CHOICE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"O")#1P}
last.tetanus 25 FREE L *AA[aa]T1|0
last.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn)#0P}
last.visit.type 3 CHOICE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn)#1P}
length.of.stay 3 PINT R VAL=IF{@discharge.date %Z.date.sub(@discharge.date,@ad
VAL=mit.date)!1}
length.of.stay.so.far 4 PINT R VAL=(%Z.date.sub(IF{@discharge.date;@.today},@admit.da
VAL=te)!1)
loa.eff.date 8 DATE L *AA[aa]O4|11
loa.eff.time 4 HHMM L *AA[aa]O4|12
loa.facility.type 5 CHOICE L *AA[aa]O4|13
loa.status 1 CHOICE L *AA[aa]O4|10
load.doctor.list 1 YN L VAL=%ADM.PAT.load.docs(ADM.PAT.urn)
load.location.list 1 YN L VAL=%ADM.PAT.load.locs(ADM.PAT.urn,ADM.PAT.time)
location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
maiden.other.name 30 NAME L *AA[aa]B|4
marital.status 10 FREE L MIS.MAR.STATUS *AA[aa]A|4
medications 50 FREE L *AA[aa]T|3
mothers.first.name 20 FREE L *AA[aa]B|3
mothers.first.name.out 20 FREE L VAL=IF{@ADM.PAT.mothers.first.name[urn];@t.MRI.PAT.mot
VAL=hers.first.name[MRI.PAT.urn]}
mothers.urn 30 URN L ADM.PAT *AA[aa]O3|9
moved.to 30 FREE L *AA[aa]O4|8
mri.drc.patient 30 FREE L
mri.urn 25 URN L MRI.PAT *AA[aa]|4
name 30 FREE L *AA[aa]|1
name.w.vip.flag 30 FREE L VAL=(IF{@ADM.PAT.vip="Y" @ADM.PARAM.vip.flag}_@ADM.PAT
VAL=.name)
new.acct 30 FREE L
newborn.admit.source 10 FREE L MIS.NEWBORN *AA[aa]B|9
nok.addr.phone.out 138 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"_A
VAL=D|7}'=",, ")
nok.address.out 96 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5'=",, ")
nok.city 20 FREE L *AA[aa]NK|3
nok.city.state.zip.o 34 FREE L VAL=(@next.of.kin^AD#3P_","_AD|4_" "_AD|5'=", ")
nok.home.phone 18 PHONE L *AA[aa]NK|6
nok.name 30 FREE L *AA[aa]NK|0
nok.name.display.only 30 FREE L *AA[aa]NK|0
nok.postal.code 10 ZIP.POST L *AA[aa]NK|5
nok.province 2 FREE L *AA[aa]NK|4
nok.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]NK|8
nok.state 2 FREE L *AA[aa]NK|4
nok.street 30 FREE L *AA[aa]NK|1
nok.street.display.only 30 FREE L *AA[aa]NK|1
nok.street2 30 FREE L *AA[aa]NK|2
nok.streets.out 61 FREE L VAL=(@nok.street_" "_@nok.street2'=" ")
nok.work.phone 18 PHONE L *AA[aa]NK|7
nok.zip 10 ZIP.POST L *AA[aa]NK|5
notify.addr.phone.out 138 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"
VAL=_AD|7}'=",, ")
notify.address.out 96 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5'=",, ")
notify.city 20 FREE L *AA[aa]PN|3
notify.city.state.zip.o 34 FREE L VAL=(@per.to.notify^AD#3P_","_AD|4_" "_AD|5'=", ")
notify.home.phone 18 PHONE L *AA[aa]PN|6
notify.name 30 FREE L *AA[aa]PN|0
notify.name.display.only 30 FREE L *AA[aa]PN|0
notify.postal.code 10 ZIP.POST L *AA[aa]PN|5
notify.province 2 FREE L *AA[aa]PN|4
notify.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]PN|8
notify.state 2 FREE L *AA[aa]PN|4
notify.street 30 FREE L *AA[aa]PN|1
notify.street.display 30 FREE L *AA[aa]PN|1
notify.street2 30 FREE L *AA[aa]PN|2
notify.streets.out 61 FREE L VAL=(@notify.street_" "_@notify.street2'=" ")
notify.work.phone 18 PHONE L *AA[aa]PN|7
notify.zip 10 ZIP.POST L *AA[aa]PN|5
number.and.name 44 FREE L VAL=(IF{O(*)=O(?) @MRI.PAT.unit.number_" "_@MRI.PAT.n
VAL=ame;@acct.number_" "_@name}:0S)
number.name.and.status 55 FREE L VAL=(IF{O(*)=O(?) @MRI.PAT.unit.number_" "_@MRI.PAT.n
VAL=ame;IF{@acct.number;"NEW"}_" "_@name_" ["_@statu
VAL=s.w.obsv_"]"}:0S)
nursing.assessment 50 FREE L *AA[aa]T|4
nursing.assessment.1 50 FREE L *AA[aa]T|5
observation.patient 1 FREE L *AA[aa]O3|10
observation.patient.date 8 DATE L *AA[aa]O4|2
observation.patient.time 4 HHMM L *AA[aa]O4|4
occupation 20 FREE L *AA[aa]E|1
omit.discharged 1 YN L VAL=IF{"Y"'=c.yn;@status#0A'="DIS"'="DEP" "Y";"N"}
oth.fam.mem 1 YN L *AA[aa]O4|5
other.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|2
other.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.other.doctor]
other.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@other.doctor];@other.doctor
VAL=}
outpatient.location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
outpatient.prior.location 10 FREE L MIS.LOCN.DICT *AA[aa]|21
outpatient.service 10 FREE L MIS.SVC.DICT *AA[aa]|20
outpatient.service.name 30 FREE L VAL=@MIS.SVC.DICT.name[@outpatient.service]
pat.city 20 FREE L *AA[aa]AD|2
pat.home.phone 18 PHONE L *AA[aa]AD|5
pat.home.phone.out 18 FREE L VAL=IF{@ADM.PAT.pat.home.phone[urn];@t.MRI.DRC.pat.hom
VAL=e.phone[MRI.PAT.urn]}
pat.other.phone 18 PHONE L *AA[aa]AD|6
pat.postal.code 10 ZIP.POST L *AA[aa]AD|4
pat.province 2 FREE L *AA[aa]AD|3
pat.state 2 FREE L *AA[aa]AD|3
pat.street 30 FREE L *AA[aa]AD|0
pat.street2 30 FREE L *AA[aa]AD|1
pat.zip 10 ZIP.POST L *AA[aa]AD|4
patient.address.out 96 FREE L VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|
VAL=3_" "_AD|4'=",, ")
patient.address.phone.out 115 FREE L VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|
VAL=3_" "_AD|4_" "_AD|5'=",, ")
patient.city.state.zip.o 34 FREE L VAL=(IF{@pt.addr;@t.MRI.DRC.pt.addr[MRI.PAT.urn]}^AD#2
VAL=P_", "_AD|3_" "_AD|4'=", ")
patient.streets.out 61 FREE L VAL=(@pat.street_" "_@pat.street2'=" ")
pctas.indicator 1 YN L *AA[aa]CNA1|3
pd.date 8 DATE L *AA[aa]PD|6
pd.pt.type 3 CHOICE L *AA[aa]PD|8
pd.reservation.date 8 DATE L *AA[aa]PD|3
pd.time 4 TIME L *AA[aa]PD|7
pd.user 10 FREE L *AA[aa]PD|5
pia.date 8 DATE L *AA[aa]CNA1|1
pia.time 4 HHMM L *AA[aa]CNA1|2
previous.acct.num 12 FREE L VAL=@old.can.acct.number[@Last(old.can.number.seq.no)]
previously.inpatient 1 YN L VAL=%ADM.PAT.prev.inp(urn)
prim.care.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|5
prim.care.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.prim.care.doctor]
prim.care.doctor.name.out 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.prim.care.doctor]
print.cd.screen 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,"",0)}}
print.cd.screen.verbatim 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,1,0)}}
prior.outpt.status 8 FREE L *AA[aa]O3|13
pt.city.out 20 FREE L VAL=IF{@ADM.PAT.pat.city[urn];@t.MRI.DRC.pat.city[MRI.
VAL=PAT.urn]}
pt.condition 1 FREE L ADM.COND *AA[aa]CN|0
pt.street.out 30 FREE L VAL=IF{@ADM.PAT.pat.street[urn];@t.MRI.DRC.pat.street[
VAL=MRI.PAT.urn]}
pt.street2.out 30 FREE L VAL=IF{@ADM.PAT.pat.street2[urn];@t.MRI.DRC.pat.street
VAL=2[MRI.PAT.urn]}
pulse 25 FREE L *AA[aa]T1|3
race 10 FREE L MIS.RACE.DICT *AA[aa]A|5
race.out 10 FREE L VAL=IF{@ADM.PAT.race[urn];@t.MRI.DRC.race[MRI.PAT.urn]
VAL=}
rcr.link.to.new 30 FREE L *AA[aa]O4|7
rcr.link.to.old 30 FREE L *AA[aa]O4|6
reason.for.visit 50 FREE L *AA[aa]CO|1
recur.discharge.date 8 DATE L *AA[aa]O3|8
refer.client 12 FREE L ADM.CLNT *AA[aa]O3|7
refer.client.name 30 FREE L VAL=@ADM.CLNT.name[@refer.client]
reg.cat 10 FREE L MIS.CAN.REGCAT *AA[aa]CNA|0
reg.cat.2 10 FREE L MIS.CAN.REGCAT *AA[aa]CNA|0
reg.number 7 FREE L
reg.number.2 9 FREE L
reg.number.init 0 FREE L VAL=(%ADM.PAT.reg.num.get(/REG)&"")
religion 10 FREE L MIS.RELIGION *AA[aa]A|0
religion.name 30 FREE L VAL=@MIS.RELIGION.name[@religion]
res.for.pay.code 1 FREE L VAL=@MIS.FIN.CLASS.resp.for.pay.code[@ADM.PAT.financia
VAL=l.class]
res.taken.date 8 DATE L *AA[aa]O3|3
res.taken.time 4 HHMM L *AA[aa]O3|4
reservation.date 8 DATE L *AA[aa]O3|1
reservation.time 8 HHMM L *AA[aa]O3|2
residence.code 10 FREE L MIS.CNTY.DICT *AA[aa]CND|4
respiration 25 FREE L *AA[aa]T1|4
room 10 FREE L MIS.ROOM.DICT *AA[aa]|10
room.and.bed 21 FREE L VAL=(@room_"-"_@bed'="-")
room.or.location.out 21 FREE L VAL=IF{@room_"-"_@bed'="-";@location}
room.rate.accom 10 FREE L *AA[aa]B|6
sched.er 1 YN L *AA[aa]CNA1|4
service 10 FREE L MIS.SVC.DICT *AA[aa]|9
service.date 8 DATE L *AA[aa]|15
service.in.out 10 FREE L MIS.SVC.DICT VAL=IF{@service;@outpatient.service}
service.name 30 FREE L VAL=@MIS.SVC.DICT.name[@service]
service.time 4 HHMM L *AA[aa]|16
sex 1 CHOICE L *AA[aa]|7
sex.name.out 6 FREE L VAL=IF{IF{@ADM.PAT.sex[urn];@t.MRI.DRC.sex[MRI.PAT.urn
VAL=]}^S="M" "Male";S="F" "Female";S="U" "Unknown"}
short.form.reg 1 YN L *AA[aa]O4|3
smoke.object.neither 1 CHOICE L *AA[aa]A|6
soc.sec.number 12 FREE L *AA[aa]A|2
soc.sec.number.out 12 FREE L VAL=IF{@ADM.PAT.soc.sec.number[urn];@t.MRI.DRC.soc.sec
VAL=.number[MRI.PAT.urn]}
special.pgm.indicator 10 FREE L MIS.SPEC.PROG *AA[aa]A|7
status 8 FREE L *AA[aa]|2
status.type 3 CHOICE L
status.type.out 3 FREE L VAL=(@status#2A)
status.w.obsv 7 FREE L VAL=@ADM.PAT.status_IF{@ADM.PAT.observation.patient="Y
VAL=" "o"}
suppress.emr 1 YN L *AA[aa]LD|1
temperature 25 FREE L *AA[aa]T1|1
time 4 HHMM L
treat.authorized.num 10 FREE L *AA[aa]B|10
triage.date 8 DATE L *AA[aa]T|0
triage.level 10 FREE L MIS.CAN.TRIAGE *AA[aa]T|6
triage.time 4 HHMM L *AA[aa]T|1
unit.number 10 FREE L *AA[aa]|3
unit.number.canada 10 FREE L *AA[aa]|3
unit.number.display.only 10 FREE L *AA[aa]|3
unit.number.pre.er 10 FREE L *AA[aa]|3
unit.number.quick.reg 10 FREE L *AA[aa]|3
unit.number.reg.summary 10 FREE L *AA[aa]|3
unit.number.sch 10 FREE L *AA[aa]|3
unit.number.sch.canada 10 FREE L *AA[aa]|3
unit.number.sch.short 10 FREE L *AA[aa]|3
unit.number.sch.short.can 10 FREE L *AA[aa]|3
unit.number.short 10 FREE L *AA[aa]|3
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(IF{@ADM.PAT.unit.number
VAL=[urn];/EA[MRI.PAT.urn,"UN",@.mri.pfx]|0})
uri.number 20 FREE L *AA[aa]CNA1|0
use.prior.status 1 YN L *AA[aa]O3|14
usual.visit.insurance.out 1 YN L VAL=(IF{@usual.visit.insurances;"Y"})
usual.visit.insurances 1 YN L *AA[aa]B|15
vip 1 YN L *AA[aa]A|9
vip.comment 50 FREE L *AA[aa]A|10
visitors.allowed 1 YN L *AA[aa]CN|1
weight 25 FREE L *AA[aa]T1|5
zip.or.county 10 FREE L VAL=IF{"C"'=@ADM.PARAM.zip.or.county.stats @ADM.PAT.pa
VAL=t.zip;IF{@MIS.PARAM.country="US" IF{@MIS.ZIP.count
VAL=y[@ADM.PAT.pat.zip];@MIS.ZIP.county[@ADM.PAT.pat.z
VAL=ip$5]};@ADM.PAT.residence.code};"U"}
zip.or.county.t 10 FREE L VAL=IF{"C"'=@ADM.PARAM.zip.or.county.stats @t.ADM.PAT.
VAL=pat.zip;IF{@MIS.PARAM.country="US" IF{@MIS.ZIP.cou
VAL=nty[@t.ADM.PAT.pat.zip];@MIS.ZIP.county[@t.ADM.PAT
VAL=.pat.zip$5]};@t.ADM.PAT.residence.code};"U"}
Ì € i 2
adm.pat.allergies (allergies)
[urn, allergy.num]
*AA[aa]ALG[aal]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy.num 1 PINT R aal
allergy 15 FREE L *AA[aa]ALG[aal]
Ì € i 2
adm.scheduled.appts (appts.from.sch)
[urn, appt.urn]
*AA[aa]WZ[wz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.urn 10 FREE L wz
appt.date 8 DATE L *AA[aa]WZ[wz]|0
appt.location 10 FREE L MIS.LOCN.DICT *AA[aa]WZ[wz]|2
appt.time 4 HHMM5 L *AA[aa]WZ[wz]|1
Ì € i 2
adm.pat.canadian.acct.numbers (can.acct.numbers)
[urn, old.can.number.seq.no]
*AA[aa]CNN[aq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
old.can.number.seq.no 2 INT R aq
old.can.acct.number 12 FREE L *AA[aa]CNN[aq]|0
old.can.acct.status 7 CHOICE L *AA[aa]CNN[aq]|1
old.can.reg.cat 10 FREE L MIS.CAN.REGCAT *AA[aa]CNN[aq]|2
Ì € i 2
adm.pat.alerts.canada (can.alerts)
[urn, alert.num]
*AA[aa]CNR[aar]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alert.num 1 PINT R aar
alert 15 FREE L *AA[aa]CNR[aar]
Ì € i 2
adm.pat.clin.alerts (clinical.alerts)
[urn, clin.alert]
*AA[aa]CLA[gqa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alert 10 FREE L MIS.CLIN.ALERT gqa
Ì € i 2
adm.pat.clin.alerts.detail (clinical.alerts.details)
[urn,clin.alert, clin.alerts.details]
*AA[aa]CLA[gqa]D[aqaDE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alerts.details 72 FREE L aqaDE
Ì € i 2
adm.pat.conditions (conditions)
[urn, cond.seq.no]
*AA[aa]C[aaCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cond.seq.no 1 PINT R aaCN
condition 10 FREE L MIS.COND *AA[aa]C[aaCN]|0
Ì € i 2
adm.pat.additional.doctors (consulting.doctors)
[urn, consulting.doctor]
*AA[aa]CDR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
consulting.doctor 10 FREE L MIS.DOC.DICT ggg
consulting.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@consulting.doctor]
consulting.dr.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@consulting.doctor];@consult
VAL=ing.doctor}
Ì € i 2
adm.pat.custom.defined.queries (customer.defined.queries)
[urn, cd.query]
*AA[aa]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.mult.qry.map.date 8 DATE L *AA[aa]CD[ggv]INIT
cd.response 75 QRY.RESP L *AA[aa]CD[ggv]|0
Ì € i 2
customer.defined.multiple.flds (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
*AA[aa]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L *AA[aa]CD[ggv]M[ggvN]|0
Ì € i 2
adm.pat.customer.def.screens (customer.defined.screens)
[urn, cd.screen]
*AA[aa]CDS[gxx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.screen 15 FREE L MIS.SCREEN gxx
Ì € i 2
adm.pat.diagnoses (dxs)
[urn, dx.seq.no]
*AA[aa]DX[aaDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dx.seq.no 2 PINT R aaDN
dx.alt.name 60 FREE L *AA[aa]DX[aaDN]|1
dx.code 7 FREE L *AA[aa]DX[aaDN]|0
Ì € i 2
adm.pat.emp.info.data (emp.info.data)
[urn, eid.seq.no]
*AA[aa]EI[aaEN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
eid.seq.no 1 PINT R aaEN
eid 10 FREE L MIS.EID *AA[aa]EI[aaEN]|0
eid.employee.id 12 FREE L *AA[aa]EI[aaEN]|4
eid.employer.loc 30 FREE L *AA[aa]EI[aaEN]|3
eid.employer.name 10 FREE L MIS.EMPLR.DICT *AA[aa]EI[aaEN]|2
eid.status 10 FREE L MIS.EMP.STATUS *AA[aa]EI[aaEN]|1
Ì € i 2
adm.pat.events (events)
[urn, event.date,event.seq.no]
*AA[aa]EV[evdt,aev]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.date 8 DATE L evdt
event.seq.no 2 PINT R aev
event.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]|8
event.admit.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|3
event.attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|4
event.bed 10 FREE L *AA[aa]EV[evdt,aev]|7
event.code 16 FREE L *AA[aa]EV[evdt,aev]|0
event.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.county 10 FREE L MIS.CNTY.DICT *AA[aa]EV[evdt,aev]|2
event.date.undone 8 DATE L *AA[aa]EV[evdt,aev]D|8
event.description 60 FREE L VAL=@ADM.PARAM.event.description[@event.code]_" "_@eve
VAL=nt.qualifiers
event.dis.dispo.expired 1 YN L *AA[aa]EV[evdt,aev]|12
event.eff.date 8 DATE L *AA[aa]EV[evdt,aev]|1
event.eff.time 4 HHMM L *AA[aa]EV[evdt,aev]D|2
event.financial.class 10 FREE L MIS.FIN.CLASS *AA[aa]EV[evdt,aev]|11
event.loa.status 1 CHOICE L *AA[aa]EV[evdt,aev]|17
event.location 10 FREE L MIS.LOCN.DICT *AA[aa]EV[evdt,aev]|5
event.new.val 20 FREE L *AA[aa]EV[evdt,aev]D|3
event.old.accomodation 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]U|13
event.old.attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]U|1
event.old.bed 10 FREE L *AA[aa]EV[evdt,aev]U|5
event.old.conf.comment 50 FREE L *AA[aa]EV[evdt,aev]U|11
event.old.confidential 1 YN L *AA[aa]EV[evdt,aev]U|10
event.old.er.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]U|7
event.old.location 10 FREE L MIS.LOCN.DICT *AA[aa]EV[evdt,aev]U|3
event.old.outpt.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]U|12
event.old.rm.rate.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]U|6
event.old.room 10 FREE L MIS.ROOM.DICT *AA[aa]EV[evdt,aev]U|4
event.old.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]U|2
event.old.service.date 8 DATE L *AA[aa]EV[evdt,aev]U|8
event.old.service.time 4 HHMM L *AA[aa]EV[evdt,aev]U|9
event.old.status 7 CHOICE L *AA[aa]EV[evdt,aev]U|0
event.old.val 20 FREE L *AA[aa]EV[evdt,aev]D|4
event.prim.care.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|14
event.qualifiers 30 FREE L *AA[aa]EV[evdt,aev]D|5
event.rcr.dt 8 DATE L *AA[aa]EV[evdt,aev]|15
event.rcr.new.sv.date 8 DATE L *AA[aa]EV[evdt,aev]|13
event.rcr.tm 4 HHMM L *AA[aa]EV[evdt,aev]|16
event.room 10 FREE L MIS.ROOM.DICT *AA[aa]EV[evdt,aev]|6
event.room.rate.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]|9
event.seq.undone 2 FREE L *AA[aa]EV[evdt,aev]D|7
event.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]|10
event.status 7 FREE L *AA[aa]EV[evdt,aev]D|6
event.time 4 HHMM L *AA[aa]EV[evdt,aev]D|0
event.transfer.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.undo.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.user 10 FREE L MIS.USER *AA[aa]EV[evdt,aev]D|1
event.zip.code 10 ZIP.POST L MIS.ZIP *AA[aa]EV[evdt,aev]|2
event.zip.or.county 10 FREE L *AA[aa]EV[evdt,aev]|2
xxx.swap.event 0 FREE L VAL=IF{"z"^X,DO{"SWAPADMIN"'=*AA[urn]EV[X]|0&X <*AA
VAL=[urn]EV[X]^X},X#0S^event.date,X#1S^event.seq.no}&"
VAL="
xxx.swap.oth.acct 12 FREE L VAL=IF{@event.qualifiers%1;"NOT AVAILABLE"}
xxx.swap.oth.name 30 FREE L VAL=IF{@name[*AAAI[@event.qualifiers%1#"0 "]];"NOT AVA
VAL=ILABLE"}
xxx.undo.event 0 FREE L VAL=IF{"z"^X,DO{"UNDODIS"'=(*AA[urn]EV[X]|0$7)&X <*
VAL=AA[urn]EV[X]^X},X#0S^event.date,X#1S^event.seq.no}
VAL=&""
xxx.xfer.event 0 FREE L VAL=%ADM.PAT.transfer.message.setup("")
Ì € i 2
adm.pat.event.segments (event.segments)
[urn,event.date,event.seq.no, event.segment]
*AA[aa]EV[evdt,aev]S[evs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.segment 3 FREE L evs
event.seg.changed 78 FREE L VAL=IF{"CD"'=event.segment "EDITED "}_%ADM.PAT.activit
VAL=y.seg(ADM.PAT.event.segment)_IF{"CD"=event.segment
VAL= " UPDATED"}
event.seg.name 70 FREE L VAL=%ADM.PAT.activity.seg(ADM.PAT.event.segment)
Ì € i 2
adm.pat.event.other.locations (events.other.locations)
[urn,event.date,event.seq.no, event.other.location]
*AA[aa]EV[evdt,aev]OL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.other.location 10 FREE L MIS.LOCN.DICT ggn
Ì € i 2
adm.pat.events.undo.other.locs (events.undo.other.locs)
[urn,event.date,event.seq.no, events.old.other.location]
*AA[aa]EV[evdt,aev]UOL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
events.old.other.location 10 FREE L MIS.LOCN.DICT ggn
Ì € i 2
adm.pat.guarantor.email (guar.email.addr)
[urn, guar.seq.num]
*AA[aa]G["EM",aaGEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.seq.num 2 PINT R aaGEQ
guar.email 40 FREE L *AA[aa]G["EM",aaGEQ]|0
Ì € i 2
adm.pat.guarantor.emp.email (guar.emp.email.addr)
[urn, guar.emp.seq.num]
*AA[aa]GE["EM",aaGEE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.emp.seq.num 2 PINT R aaGEE
guar.emp.email 40 FREE L *AA[aa]GE["EM",aaGEE]|0
Ì € i 2
adm.pat.hhrg (hhrg)
[urn, hhrg.asmnt.date]
*AA[aa]HHRG[aaHSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.asmnt.date 14 PINT R aaHSD
hhrg.asmnt.code 2 PINT R *AA[aa]HHRG[aaHSD]|4
hhrg.code 10 FREE L MIS.HHRG.DICT *AA[aa]HHRG[aaHSD]|1
hhrg.eoc 8 DATE L *AA[aa]HHRG[aaHSD]|0
hhrg.hipps 5 FREE L *AA[aa]HHRG[aaHSD]|6
hhrg.msa 10 FREE L MIS.MSA.DICT *AA[aa]HHRG[aaHSD]|2
hhrg.oasis.key 18 FREE L *AA[aa]HHRG[aaHSD]|5
hhrg.soc 8 DATE L *AA[aa]HHRG[aaHSD]|3
Ì € i 2
adm.pat.hhrg.dxs (hhrg.dxs)
[urn,hhrg.asmnt.date, hhrg.dx.seq.no]
*AA[aa]HHRG[aaHSD]DX[aaHDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.dx.seq.no 2 PINT R aaHDN
hhrg.dx.code 7 FREE L *AA[aa]HHRG[aaHSD]DX[aaHDN]|0
Ì € i 2
adm.pat.insurances (insurances)
[urn, insurance]
*AA[aa]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS.DICT ggm
ins.auth.diag.code 6 FREE L *AA[aa]I[ggm]A|1
ins.auth.diag.desc 30 FREE L *AA[aa]I[ggm]A|2
ins.auth.eff.date 8 DATE L *AA[aa]I[ggm]A|7
ins.auth.exp.date 8 DATE L *AA[aa]I[ggm]A|8
ins.auth.ipa.reimb.amt 9 MONEY R *AA[aa]I[ggm]A|10
ins.auth.last.user 10 FREE L MIS.USER *AA[aa]I[ggm]A|12
ins.auth.number 18 FREE L VAL=@insurance.treat.auth.num
ins.auth.process 10 FREE L VAL="AUTH"
ins.auth.process.status 8 CHOICE L *AA[aa]I[ggm]A|5
ins.auth.process.tried.q 1 FREE L *AA[aa]I[ggm]A|11
ins.auth.ref.provider 10 FREE L MIS.DOC.DICT *AA[aa]I[ggm]A|9
ins.auth.status 9 CHOICE L *AA[aa]I[ggm]A|4
ins.auth.status.date 8 DATE L *AA[aa]I[ggm]A|6
ins.auth.status.out 9 FREE L VAL=IF{@ins.auth.status;@ins.auth.process.status}
ins.auth.units 3 PINT R *AA[aa]I[ggm]A|3
ins.elig.inq.seq.no 3 INT R *AA[aa]I[ggm]L|5
ins.elig.last.user 10 FREE L MIS.USER *AA[aa]I[ggm]L|3
ins.elig.process 10 FREE L VAL="ELIG"
ins.elig.process.tried.q 1 FREE L *AA[aa]I[ggm]L|2
ins.elig.status 8 CHOICE L *AA[aa]I[ggm]L|0
ins.elig.status.date 8 DATE L *AA[aa]I[ggm]L|1
ins.elig.trace.num 40 FREE L *AA[aa]I[ggm]L|4
ins.emp.loc 30 FREE L *AA[aa]I[ggm]E|2
ins.emp.name 10 FREE L MIS.EMPLR.DICT *AA[aa]I[ggm]E|1
ins.emp.status 10 FREE L MIS.EMP.STATUS *AA[aa]I[ggm]E|0
ins.policy.num 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic]
ins.print.cds 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",0)
ins.print.cds.43 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",43)
ins.print.cds.6 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",6)
ins.print.cds.verbatim 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,1,0)
ins.print.queries 8 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",0,1)
insurance.benefit.plan 20 FREE L *AA[aa]I[ggm]N|9
insurance.city 20 FREE L *AA[aa]I[ggm]|1
insurance.cov.no 20 FREE L *AA[aa]I[ggm]N|7
insurance.eff.date 8 DATE L *AA[aa]I[ggm]N|5
insurance.exp.date 8 DATE L *AA[aa]I[ggm]N|6
insurance.other.name 30 FREE L *AA[aa]I[ggm]|5
insurance.phone 30 PHONE L *AA[aa]I[ggm]|4
insurance.postal.code 10 ZIP.POST L *AA[aa]I[ggm]|3
insurance.province 2 FREE L *AA[aa]I[ggm]|2
insurance.state 2 FREE L *AA[aa]I[ggm]|2
insurance.street 30 FREE L *AA[aa]I[ggm]|0
insurance.street2 30 FREE L *AA[aa]I[ggm]|6
insurance.treat.auth.num 18 FREE L *AA[aa]I[ggm]N|8
insurance.zip 10 ZIP.POST L *AA[aa]I[ggm]|3
insured.group.name 30 FREE L *AA[aa]I[ggm]N|4
insured.group.number 15 FREE L *AA[aa]I[ggm]N|3
insured.name 30 FREE L *AA[aa]I[ggm]N|0
insured.name.out 30 NAME L VAL=IF{@insured.subscriber^SUB @MRI.SUBSCRIBER.subs.na
VAL=me[SUB];@insured.name}
insured.policy.number 30 FREE L *AA[aa]I[ggm]N|2
insured.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]I[ggm]N|1
insured.subscriber 35 URN L MRI.SUBSCRIBER *AA[aa]I[ggm]N|10
insured.update.subs.data 1 YN L *AA[aa]I[ggm]N|13
Ì € i 2
adm.pat.ins.auth.procedures (ins.auth.procedures)
[urn,insurance, ins.auth.proc.seq.no]
*AA[aa]I[ggm]A["P",aaIAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.proc.seq.no 2 PINT R aaIAP
ins.auth.proc 10 FREE L *AA[aa]I[ggm]A["P",aaIAP]|0
ins.auth.proc.amt 9 MONEY R *AA[aa]I[ggm]A["P",aaIAP]|1
ins.auth.proc.copay 8 MONEY R *AA[aa]I[ggm]A["P",aaIAP]|3
ins.auth.proc.units 3 PINT R *AA[aa]I[ggm]A["P",aaIAP]|2
Ì € i 2
adm.pat.ins.auth.req.data (ins.auth.req.data)
[urn,insurance, ins.auth.req.seq.no]
*AA[aa]I[ggm]R[aaIRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.req.seq.no 2 PINT R aaIRQ
ins.auth.req.diag.code 6 FREE L *AA[aa]I[ggm]R[aaIRQ]|2
ins.auth.req.diag.desc 30 FREE L *AA[aa]I[ggm]R[aaIRQ]|3
ins.auth.req.last.user 10 FREE L MIS.USER *AA[aa]I[ggm]R[aaIRQ]|9
ins.auth.req.number 18 FREE L *AA[aa]I[ggm]R[aaIRQ]|7
ins.auth.req.process 10 FREE L VAL="REF REQ"
ins.auth.req.pros.tried.q 1 FREE L *AA[aa]I[ggm]R[aaIRQ]|8
ins.auth.req.prv.enc 10 FREE L *AA[aa]I[ggm]R[aaIRQ]|10
ins.auth.req.prv.enc.ref 2 FREE L *AA[aa]I[ggm]R[aaIRQ]|11
ins.auth.req.prv.ref.urn 10 URN L PRV.REF *AA[aa]I[ggm]R[aaIRQ]|10
ins.auth.req.reqd.prov 10 FREE L MIS.DOC.DICT *AA[aa]I[ggm]R[aaIRQ]|6
ins.auth.req.reqg.prov 10 FREE L MIS.DOC.DICT *AA[aa]I[ggm]R[aaIRQ]|5
ins.auth.req.status 8 CHOICE L *AA[aa]I[ggm]R[aaIRQ]|0
ins.auth.req.status.date 8 DATE L *AA[aa]I[ggm]R[aaIRQ]|1
ins.auth.req.units 3 INT R *AA[aa]I[ggm]R[aaIRQ]|4
Ì € i 2
adm.pat.ins.auth.req.services (ins.auth.req.services)
[urn,insurance,ins.auth.req.seq.no, ins.auth.req.ser.seq.no]
*AA[aa]I[ggm]R[aaIRQ]S[aaIRS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.req.ser.seq.no 2 PINT R aaIRS
ins.auth.req.fin.resp 10 CHOICE L *AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|0
ins.auth.req.proc.code 10 FREE L *AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|1
ins.auth.req.proc.desc 30 FREE L *AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|3
ins.auth.req.quantity 4 PINT R *AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|4
ins.auth.req.use.cpt 1 YN L *AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|2
Ì € i 2
adm.pat.ins.custom.def.queries (ins.cd.queries)
[urn,insurance, ins.cd.query]
*AA[aa]I[ggm]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query 10 FREE L MIS.QUERY ggv
ins.cd.mult.qry.map.date 8 DATE L *AA[aa]I[ggm]CD[ggv]INIT
ins.cd.response 75 QRY.RESP L *AA[aa]I[ggm]CD[ggv]|0
Ì € i 2
adm.pat.ins.cust.def.mult.qrys (ins.cd.mult.queries)
[urn,insurance,ins.cd.query, ins.cdm.seq.no]
*AA[aa]I[ggm]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cdm.seq.no 3 PINT R ggvN
ins.cdm.response 75 QRY.RESP L *AA[aa]I[ggm]CD[ggv]M[ggvN]|0
Ì € i 2
adm.pat.insurance.queries (ins.queries)
[urn,insurance, query.seq.no]
*AA[aa]I[ggm]Q[ggmQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.seq.no 2 PINT R ggmQ
ins.query 60 FREE L VAL=@MIS.QUERY.text[@ADM.PAT.ins.query.mnemonic]
ins.query.and.answer 136 FREE L VAL=(@ins.query_" "_@ins.query.answer)
ins.query.answer 75 QRY.RESP L *AA[aa]I[ggm]Q[ggmQ]|1
ins.query.color.screen 75 FREE L VAL=(@Set.attr(@Z.color.labels1)_(@ins.query:75L)_@Set
VAL=.attr(@Z.color.data1))
ins.query.count 2 INT R VAL=(-@ADM.PAT.ins.queries[ADM.PAT.urn,insurance,""]+0
VAL=)
ins.query.mnemonic 10 FREE L MIS.QUERY *AA[aa]I[ggm]Q[ggmQ]|0
ins.query.screen 60 FREE L VAL=IF{@ins.query @Z.start.background_@Z.normal.backgr
VAL=ound.half_@ins.query_@Z.start.foreground_@Z.normal
VAL=.foreground.full}
Ì € i 2
adm.pat.insurances.email (insurances.email)
[urn,insurance, insurance.email.seq.num]
*AA[aa]I[ggm]EM[aaIEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance.email.seq.num 2 PINT R aaIEQ
insurance.email 40 FREE L *AA[aa]I[ggm]EM[aaIEQ]|0
Ì € i 2
adm.pat.ppr.ins.auth.list (ppr.ins.auth.list)
[urn,insurance, ppr.ins.auth.q]
*AA[aa]I[ggm]PAU[aaIAU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ins.auth.q 4 INT R aaIAU
ppr.authorization.urn.ptr 10 INT R *AA[aa]I[ggm]PAU[aaIAU]|0
Ì € i 2
adm.pat.insurance.order (insure.order)
[urn, ins.seq.no]
*AA[aa]IO[aaIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.seq.no 1 PINT R aaIN
display.ins.name 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" IF{@insurance.othe
VAL=r.name;@MIS.INS.DICT.name};@MIS.INS.DICT.name}
insurance.auth.no.1 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=1]]
insurance.auth.no.2 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=2]]
insurance.auth.no.3 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=3]]
insurance.auth.no.4 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=4]]
insurance.group.no.1 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[1]]
insurance.group.no.2 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[2]]
insurance.group.no.3 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[3]]
insurance.group.no.4 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[4]]
insurance.mnemonic 10 FREE L MIS.INS.DICT *AA[aa]IO[aaIN]|0
insurance.mnemonic.1 10 FREE L VAL=IF{@insurance.mnemonic[1];@t.MRI.DRC.insurance.mne
VAL=monic[MRI.PAT.urn,1]}
insurance.mnemonic.2 10 FREE L VAL=IF{@insurance.mnemonic[2];@t.MRI.DRC.insurance.mne
VAL=monic[MRI.PAT.urn,2]}
insurance.name 30 FREE L VAL=IF{@t.insurance.other.name[@insurance.mnemonic[ins
VAL=.seq.no]];@MIS.INS.DICT.name[@insurance.mnemonic[i
VAL=ns.seq.no]]}
insurance.name.1 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=1];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,1]}^I
VAL=NS];@MIS.INS.DICT.name[INS]}
insurance.name.2 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=2];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,2]}^I
VAL=NS];@MIS.INS.DICT.name[INS]}
insurance.name.3 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=3];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,3]}^I
VAL=NS];@MIS.INS.DICT.name[INS]}
insurance.name.4 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=4];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,4]}^I
VAL=NS];@MIS.INS.DICT.name[INS]}
insurance.no.and.mne 13 FREE L VAL=(ins.seq.no_" "_insurance.mnemonic)
insurance.pol.no.1 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[1]]
insurance.pol.no.2 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[2]]
insurance.pol.no.3 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[3]]
insurance.pol.no.4 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[4]]
insured.name.1 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[1]];@t.MR
VAL=I.DRC.insured.name[MRI.PAT.urn,@t.MRI.DRC.insuranc
VAL=e.mnemonic[MRI.PAT.urn,1]]}
insured.name.2 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[2]];@t.MR
VAL=I.DRC.insured.name[MRI.PAT.urn,@t.MRI.DRC.insuranc
VAL=e.mnemonic[MRI.PAT.urn,2]]}
insured.name.3 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[3]];@t.MR
VAL=I.DRC.insured.name[MRI.PAT.urn,@t.MRI.DRC.insuranc
VAL=e.mnemonic[MRI.PAT.urn,3]]}
insured.name.4 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[4]];@t.MR
VAL=I.DRC.insured.name[MRI.PAT.urn,@t.MRI.DRC.insuranc
VAL=e.mnemonic[MRI.PAT.urn,4]]}
Ì € i 2
loa data (loa.data)
[urn, loa.date,loa.time]
*AA[aa]LOA[aaLD,aaLT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loa.date 8 DATE L aaLD
loa.time 4 HHMM L aaLT
loa.code 1 CHOICE L *AA[aa]LOA[aaLD,aaLT]|1
loa.code.facility.type 5 CHOICE L *AA[aa]LOA[aaLD,aaLT]|3
loa.user 10 FREE L MIS.USER *AA[aa]LOA[aaLD,aaLT]|0
zz.future.use 1 FREE L *AA[aa]LOA[aaLD,aaLT]|2
Ì € i 2
adm.pat.med.nec.dxs (med.nec.dxs)
[urn, med.nec.dx.code]
*AA[aa]MND[aaMND]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.code 7 FREE L aaMND
med.nec.dx.date 8 FREE L *AA[aa]MND[aaMND]|0
med.nec.last.update 10 PINT R *AA[aa]MND[aaMND]UPD
Ì € i 2
adm.pat.med.nec.dx.procs (med.nec.dx.procs)
[urn,med.nec.dx.code, med.nec.dx.proc]
*AA[aa]MND[aaMND]P[aadxP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc 12 FREE L aadxP
Ì € i 2
adm.pat.med.nec.dx.proc.mods (med.nec.dx.proc.mods)
[urn,med.nec.dx.code,med.nec.dx.proc, med.nec.dx.proc.mod]
*AA[aa]MND[aaMND]P[aadxP]M[aadxM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.mod 2 FREE L aadxM
Ì € i 2
adm.pat.med.nec.dx.proc.mod.sr (med.nec.dx.proc.mod.src)
[urn,med.nec.dx.code,med.nec.dx.proc,med.nec.dx.proc.mod, med.nec.dx.proc.mod.db]
*AA[aa]MND[aaMND]P[aadxP]M[aadxM]SRC[modDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.mod.db 30 FREE L modDB
Ì € i 2
adm.pat.med.nec.dx.proc.src (med.nec.dx.proc.source)
[urn,med.nec.dx.code,med.nec.dx.proc, med.nec.dx.proc.db]
*AA[aa]MND[aaMND]P[aadxP]SRC[prcDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.db 30 FREE L prcDB
Ì € i 2
adm.pat.med.nec.dx.src (med.nec.dx.source)
[urn,med.nec.dx.code, med.nec.dx.db]
*AA[aa]MND[aaMND]SRC[mdxDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.db 30 FREE L mdxDB
Ì € i 2
adm.pat.mn.visit.diagnosis (mn.visit.diagnosis)
[urn, mn.visit.dx.seq.no]
*AA[aa]MDX[mDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mn.visit.dx.seq.no 2 PINT R mDN
mn.visit.dx 7 FREE L MIS.DIAG *AA[aa]MDX[mDN]|0
mn.visit.dx.adm.src 1 YN L *AA[aa]MDX[mDN]|1
mn.visit.dx.name 40 FREE L VAL=@MIS.DIAG.name[@mn.visit.dx[mn.visit.dx.seq.no]]$4
VAL=0
Ì € i 2
adm.pat.moved.from (moved.from)
[urn, mf.number]
*AA[aa]MF[aaMN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mf.number 2 PINT R aaMN
mfacct.number 12 FREE L *AA[aa]MF[aaMN]|1
mfurn 30 URN L *AA[aa]MF[aaMN]|0
Ì € i 2
adm.pat.next.of.kin.email (next.of.kin.email)
[urn, nok.seq.num]
*AA[aa]NK["EM",aaKEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nok.seq.num 2 PINT R aaKEQ
nok.email 40 FREE L *AA[aa]NK["EM",aaKEQ]|0
Ì € i 2
adm.pat.occurences (occurences)
[urn, occur.seq.no]
*AA[aa]O[aaON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
occur.seq.no 1 PINT R aaON
occur.date 8 DATE L *AA[aa]O[aaON]|1
occur.time 4 HHMM L *AA[aa]O[aaON]|2
occur.type 10 FREE L MIS.ACCID.TYPE *AA[aa]O[aaON]|0
Ì € i 2
adm.pat.other.outpat.locations (other.locations)
[urn, other.location]
*AA[aa]OL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.location 10 FREE L MIS.LOCN.DICT ggn
Ì € i 2
adm.pat.other.names (other.names)
[urn, other.name]
*AA[aa]ON[aaON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.name 30 NAME L aaON
Ì € i 2
other.vendor.account.numbers (ov.acct.nums)
[urn, other.vendor.code]
*AA[aa]OV[ov]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.vendor.code 15 FREE L ov
other.vendor.acct 20 FREE L *AA[aa]OV[ov]|0
Ì € i 2
adm.pat.person.to.notify.email (per.to.notify.email)
[urn, notify.seq.num]
*AA[aa]PN["EM",aaNEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
notify.seq.num 2 PINT R aaNEQ
notify.email 40 FREE L *AA[aa]PN["EM",aaNEQ]|0
Ì € i 2
adm.pat.ppr.encounters (ppr.encounters)
[urn, ppr.encounter.seq]
*AA[aa]PPR[aaENC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.encounter.seq 4 INT R aaENC
cds.screen 15 FREE L MIS.SCREEN *AA[aa]PPR[aaENC]CDS|0
ppr.alt.desc.group 15 FREE L *AA[aa]PPR[aaENC]DX|1
ppr.cd.screen.old 15 FREE L *AA[aa]PPR[aaENC]CD|0
ppr.enc.appt 10 FREE L SCH.APPT *AA[aa]PPR[aaENC]|15
ppr.enc.appt.type 10 FREE L SCH.APPT.TYPE *AA[aa]PPR[aaENC]|8
ppr.enc.date 8 DATE L *AA[aa]PPR[aaENC]|0
ppr.enc.ins 10 FREE L MIS.INS.DICT *AA[aa]PPR[aaENC]|12
ppr.enc.ins.auth.number 18 FREE L *AA[aa]PPR[aaENC]|11
ppr.enc.locn 10 FREE L MIS.LOCN.DICT *AA[aa]PPR[aaENC]|3
ppr.enc.lss.bill.number 18 FREE L *AA[aa]PPR[aaENC]|13
ppr.enc.lss.enc.episode 10 FREE L *AA[aa]PPR[aaENC]|10
ppr.enc.lss.enc.num 12 FREE L *AA[aa]PPR[aaENC]|9
ppr.enc.lss.enc.urn 12 FREE L *AA[aa]PPR[aaENC]|16
ppr.enc.lss.episode.urn 10 FREE L *AA[aa]PPR[aaENC]|17
ppr.enc.pbr.rfv 10 FREE L *AA[aa]PPR[aaENC]|14
ppr.enc.practice 10 FREE L MIS.DOC.GRP *AA[aa]PPR[aaENC]|5
ppr.enc.provider 10 FREE L *AA[aa]PPR[aaENC]|6
ppr.enc.reason.for.visit 50 FREE L *AA[aa]PPR[aaENC]|4
ppr.enc.status 10 FREE L *AA[aa]PPR[aaENC]|7
ppr.enc.time 4 HHMM L *AA[aa]PPR[aaENC]|1
ppr.enc.user 10 FREE L MIS.USER *AA[aa]PPR[aaENC]|2
ppr.grouper.version 10 FREE L *AA[aa]PPR[aaENC]DX|0
ppr.msp.cd.screen.old 15 FREE L *AA[aa]PPR[aaENC]MSP|0
print.ppr.cd.scr.verbatim 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,1,0)}}
print.ppr.cd.screen 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,"",0)}}
print.ppr.msp.cd.scr.vrtm 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,1,0)}}
print.ppr.msp.cd.screen 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,"",0)}}
Ì € i 2
adm.pat.ppr.cus.defined.query (ppr.cus.defined.queries)
[urn,ppr.encounter.seq, ppr.cd.query]
*AA[aa]PPR[aaENC]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.cd.query 10 FREE L MIS.QUERY ggv
ppr.cd.response 75 QRY.RESP L *AA[aa]PPR[aaENC]CD[ggv]|0
ppr.cd.yn.comment 70 QRY.RESP L *AA[aa]PPR[aaENC]CD[ggv]|1
Ì € i 2
adm.pat.ppr.enounter.dx (ppr.encounter.dx)
[urn,ppr.encounter.seq, ppr.encounter.dx.seq.no]
*AA[aa]PPR[aaENC]DX[aaPDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.encounter.dx.seq.no 3 PINT R aaPDN
ppr.encounter.dx.codes 7 FREE L *AA[aa]PPR[aaENC]DX[aaPDN]|0
Ì € i 2
adm.pat.ppr.insure.order (ppr.insure.order)
[urn,ppr.encounter.seq, ppr.ins.seq.no]
*AA[aa]PPR[aaENC]PPRIO[aaPIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ins.seq.no 3 PINT R aaPIN
ppr.ins.auth 18 FREE L *AA[aa]PPR[aaENC]PPRIO[aaPIN]|1
ppr.ins.client 10 FREE L *AA[aa]PPR[aaENC]PPRIO[aaPIN]|2
ppr.ins.mnemonic 10 FREE L MIS.INS.DICT *AA[aa]PPR[aaENC]PPRIO[aaPIN]|0
Ì € i 2
adm.pat.ppr.msp.query (ppr.msp.queries)
[urn,ppr.encounter.seq, ppr.msp.query]
*AA[aa]PPR[aaENC]MSP[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.msp.query 10 FREE L MIS.QUERY ggv
ppr.msp.response 75 QRY.RESP L *AA[aa]PPR[aaENC]MSP[ggv]|0
ppr.msp.yn.comment 70 QRY.RESP L *AA[aa]PPR[aaENC]MSP[ggv]|1
Ì € i 2
adm.pat.ppr.msp.mult.query (ppr.msp.mult.queries)
[urn,ppr.encounter.seq,ppr.msp.query, msp.cdm.seq.no]
*AA[aa]PPR[aaENC]MSP[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
msp.cdm.seq.no 3 PINT R ggvN
msp.cdm.response 75 QRY.RESP L *AA[aa]PPR[aaENC]MSP[ggv]M[ggvN]|0
Ì € i 2
adm.pat.ppr.schedule.notes (ppr.schedule.notes)
[urn,ppr.encounter.seq, ppr.sched.notes.line]
*AA[aa]PPR[aaENC]SN[aaPSN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.sched.notes.line 3 PINT R aaPSN
ppr.sched.notes.text 79 FREE L *AA[aa]PPR[aaENC]SN[aaPSN]
Ì € i 2
adm.pat.ppr.ins.auth.data (ppr.ins.auth.data)
[urn, ppr.ins.auth.urn]
*AA[aa]PAU[aaPAU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ins.auth.urn 10 URN L aaPAU
ppr.ins.auth.client 12 FREE L ADM.CLNT *AA[aa]PAU[aaPAU]|2
ppr.ins.auth.comment 50 FREE L *AA[aa]PAU[aaPAU]|14
ppr.ins.auth.diag.code 6 FREE L *AA[aa]PAU[aaPAU]|6
ppr.ins.auth.diag.desc 30 FREE L *AA[aa]PAU[aaPAU]|7
ppr.ins.auth.eff.date 8 DATE L *AA[aa]PAU[aaPAU]|9
ppr.ins.auth.exp.date 8 DATE L *AA[aa]PAU[aaPAU]|10
ppr.ins.auth.ins.auth.q 10 INT R *AA[aa]PAU[aaPAU]|1
ppr.ins.auth.insurance 10 FREE L MIS.INS.DICT *AA[aa]PAU[aaPAU]|0
ppr.ins.auth.ipa.reimb 9 MONEY R *AA[aa]PAU[aaPAU]|12
ppr.ins.auth.last.update 9 PINT R *AA[aa]PAU[aaPAU]E|3
ppr.ins.auth.last.user 10 FREE L MIS.USER *AA[aa]PAU[aaPAU]E|4
ppr.ins.auth.number 18 FREE L *AA[aa]PAU[aaPAU]|13
ppr.ins.auth.pbr.acct 12 FREE L *AA[aa]PAU[aaPAU]E|0
ppr.ins.auth.pbr.actnum 12 FREE L *AA[aa]PAU[aaPAU]E|1
ppr.ins.auth.pbr.epi.seq 5 FREE L *AA[aa]PAU[aaPAU]E|2
ppr.ins.auth.pbr.epi.type 10 FREE L *AA[aa]PAU[aaPAU]E|5
ppr.ins.auth.proc.status 8 CHOICE L *AA[aa]PAU[aaPAU]|4
ppr.ins.auth.ref.provider 10 FREE L MIS.DOC.DICT *AA[aa]PAU[aaPAU]|11
ppr.ins.auth.status 9 CHOICE L *AA[aa]PAU[aaPAU]|3
ppr.ins.auth.status.date 8 DATE L *AA[aa]PAU[aaPAU]|5
ppr.ins.auth.units 3 PINT R *AA[aa]PAU[aaPAU]|8
Ì € i 2
adm.pat.email (pt.email)
[urn, pat.email.seq.num]
*AA[aa]AD["EM",aaEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pat.email.seq.num 2 PINT R aaEQ
pat.email 40 FREE L *AA[aa]AD["EM",aaEQ]|0
pat.email.usable 1 YN L *AA[aa]AD["EM",aaEQ]|1
Ì € i 2
adm.pat.employer.email (pt.emp.email)
[urn, emp.email.seq.num]
*AA[aa]E["EM",aaEEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emp.email.seq.num 2 PINT R aaEEQ
emp.email 40 *AA[aa]E["EM",aaEEQ]|0
Ì € i 2
adm.pat.recur.visit.dates (recur.dates)
[urn, recur.date,recur.time]
*AA[aa]RCR[aaRD,aaRT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
recur.date 8 DATE L aaRD
recur.time 4 HHMM L aaRT
recur.bed.begin.date 8 DATE L *AA[aa]RCR[aaRD,aaRT]|2
recur.bed.begin.time 4 HHMM L *AA[aa]RCR[aaRD,aaRT]|4
recur.bed.end.date 8 DATE L *AA[aa]RCR[aaRD,aaRT]|3
recur.bed.end.time 4 HHMM L *AA[aa]RCR[aaRD,aaRT]|5
recur.locn 10 FREE L MIS.LOCN.DICT *AA[aa]RCR[aaRD,aaRT]|1
recur.user 10 FREE L MIS.USER *AA[aa]RCR[aaRD,aaRT]|0
Ì € i 2
adm.pat.recur.visit.other.locs (recur.dates.loc)
[urn,recur.date,recur.time, rcr.other.location]
*AA[aa]RCR[aaRD,aaRT]L[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rcr.other.location 10 FREE L MIS.LOCN.DICT ggn
Ì € i 2
adm.pat.rugs.codes (rugs.codes)
[urn, rug.date]
*AA[aa]RUG[rdate]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rug.date 8 DATE L rdate
rug.code.mcr.w.modifier 5 FREE L VAL=@rug.code.medicare_@rug.modifier.mcr
rug.code.medicaid 3 FREE L MIS.RUGS.DICT *AA[aa]RUG[rdate]|1
rug.code.medicare 3 FREE L MIS.RUGS.DICT *AA[aa]RUG[rdate]|0
rug.mds.ref.date 8 DATE L *AA[aa]RUG[rdate]|3
rug.mds.urn 8 FREE L *AA[aa]RUG[rdate]|2
rug.modifier.mcr 2 FREE L *AA[aa]RUG[rdate]|4
Ì € i 2
schedule.alerts (schedule.alerts)
[urn, sched.alert.line]
*AA[aa]SA[aaSA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sched.alert.line 3 PINT R aaSA
sched.alert.text 79 FREE L *AA[aa]SA[aaSA]
Ì € i 2
adm.pat.schedule.notes (schedule.notes)
[urn, sched.note.line]
*AA[aa]SN[aaSN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sched.note.line 3 PINT R aaSN
sched.note.text 79 FREE L *AA[aa]SN[aaSN]
Ì i 2
adm.mri.pointer (mri.pointer)
[mp.urn,mp.visit.date]
:AAMP[aa,aaVD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mp.urn 30 URN L ADM.PAT aa
mp.visit.date 8 DATE L aaVD
mp.acct.num 12 FREE L :AAMP[aa,aaVD]|1
mp.mri.urn 25 URN L MRI.PAT :AAMP[aa,aaVD]|0
mp.visit.type 3 FREE L :AAMP[aa,aaVD]|2
Ì i 2
adm.order.entry.data (oe.data)
[oe.urn]
*AA.OE[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.urn 10 URN L aa
oe.admit.date 8 FREE L VAL=%Z.date.out(@p.admit.date)
oe.age.and.sex 10 FREE L VAL=(%Z.age(@p.computed.birthdate)_" "_@p.sex)
oe.bed 10 FREE L VAL=@p.bed
oe.location 10 FREE L VAL=@p.location
oe.name 30 FREE L VAL=@p.name
oe.pt 43 FREE L
oe.room 10 FREE L VAL=@p.room
oe.screen 0 FREE L VAL=(IF{z.new %MIS.SCREEN.kernel(z.new,^/AA.OE[oe.urn]
VAL=R,"","",7,0,"ND0")}&"")
oe.status 10 FREE L VAL=@p.status
oe.unit.number 8 FREE L VAL=@p.unit.number
temporary.location 10 FREE L MIS.LOCN.DICT *AA.OE[aa]|0
Ì i 2
adm.pat.ppr.dxs (ppr.dxs)
[ppr.dx.seq.no]
/DX[aaPDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.dx.seq.no 3 PINT R aaPDN
ppr.dx.alt.name 60 FREE L /DX[aaPDN]|1
ppr.dx.code 7 FREE L MIS.DIAG /DX[aaPDN]|0
ppr.dx.confidential.data 1 YN L /DX[aaPDN]|2
Ì i 2
adm.pat.ppr.ee.cus.def.queries (ppr.ee.cus.def.queries)
[ppr.ee.cd.query]
/CDS[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ee.cd.query 10 FREE L MIS.QUERY ggv
ppr.ee.cd.response 75 QRY.RESP L /CDS[ggv]|0
ppr.ee.cd.yn.comment 70 QRY.RESP L /CDS[ggv]|1
Ì i 2
adm.pat.ppr.last.diag.list (ppr.last.diag.list)
[ppr.last.diag.list.q]
/["PPRDIAG",pprdq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.last.diag.list.q 3 PINT R pprdq
ppr.last.diag.mnemonic 7 FREE L /["PPRDIAG",pprdq]|0
Ì i 2
adm.pat.ppr.locals (ppr.locals)
*AA
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ins.or.client 65 FREE L
ppr.last.date 8 DATE L VAL=@ADM.PAT.ppr.enc.date[-@ADM.PAT.ppr.encounters[@AD
VAL=M.PAT.urn,""]]
ppr.last.locn 10 FREE L VAL=@ADM.PAT.ppr.enc.locn[urn,-@ADM.PAT.ppr.encounters
VAL=[@ADM.PAT.urn,""]]
ppr.last.practice 10 FREE L VAL=@ADM.PAT.ppr.enc.practice[urn,-@ADM.PAT.ppr.encoun
VAL=ters[@ADM.PAT.urn,""]]
ppr.last.reason.for.visit 50 FREE L VAL=@ADM.PAT.ppr.enc.reason.for.visit[urn,-@ADM.PAT.pp
VAL=r.encounters[@ADM.PAT.urn,""]]
ppr.last.time 4 HHMM L VAL=IF{%ADM.PAT.ppr.en.encounter.M.compile.last.diag("
VAL=");@ADM.PAT.ppr.enc.time[-@ADM.PAT.ppr.encounters[
VAL=@ADM.PAT.urn,""]]}
Ì i 2
adm.ppr.sched.notes.ee (ppr.sched.notes.ee)
[ppr.ee.sched.line]
/SN[aaPSN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ee.sched.line 4 PINT R aaPSN
ppr.ee.sched.text 79 FREE L /SN[aaPSN]
Ì i 2
adm.pat.ppr.view.history (ppr.view.history)
[ppr.ph.urn]
/PPRHX[pprhx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ph.urn 4 URN L pprhx
ppr.encounter.queue.setup 0 FREE L VAL=%ADM.PAT.ppr.encounter.queue("")
ppr.ph.attending.provider 10 FREE L /PPRHX[pprhx]|4
ppr.ph.date 8 DATE L /PPRHX[pprhx]|0
ppr.ph.encounter.seq 4 INT R /PPRHX[pprhx]|7
ppr.ph.has.cds 1 FREE L /PPRHX[pprhx]|6
ppr.ph.primary.diag 7 FREE L /PPRHX[pprhx]|3
ppr.ph.reason.for.visit 50 FREE L /PPRHX[pprhx]|2
ppr.ph.status 10 FREE L /PPRHX[pprhx]|5
ppr.ph.time 4 HHMM L /PPRHX[pprhx]|1
Ì € i 2
adm.pat.ppr.ph.sched.notes (ppr.ph.sched.notes)
[ppr.ph.urn, ppr.ph.sched.notes.line]
/PPRHX[pprhx]SN[aaPSN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ppr.ph.sched.notes.line 3 PINT R aaPSN
ppr.ph.sched.notes.text 79 FREE L /PPRHX[pprhx]SN[aaPSN]
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |